home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Asymetrix Multimedia Toolbook 4.0 (CBT Edition)
/
Asymetric Multimedia Toolbook 4.0 (CBT Edition).iso
/
ctb40ap.z
/
SCRWALK.TBK
(
.txt
)
< prev
next >
Wrap
Asymetrix ToolBook File
|
1996-01-10
|
149KB
|
2,439 lines
*ClassTbl*
*ClassEntry*
*PTABLE*
*WINDOWSEG*
*ICONRESTAB*
*ICONRESSEG*
*ICONRES*
Background
*OBJTABLE*
*IDTABLE*
*NAMETAB*
Rectangle
Ellipse
RoundedRectangle
Polygon
IrregularPolygon
AngledLine
Curve
PaintObject
Picture
Group
Stage
Button
Viewer
ComboBox
Field
RecordField
Hotword
*RHOTWORD*
*TbxBase*
bxBase*
D T d
TB40HYP.SBK
bxBase*
Early
Backdrop
Assign
Addign disabled
Early Disabled
Later
Later Disabled
dotdotdot
dotdotdot
wwwwp
wwwww
wwwwwp
wwpwwp
wwpwwp
wwpwwp
xwwwxp
wxwxwp
wwxwwp
wwpwwp
xxxxx
xxxxxxxxxxxxx
xxxxxxxxxx
xxxxxxxxxxxxxxxxx
xxxxxx
xxxxxxx
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
""""""""""
ETEICO
"""""
"""""
"""""
"""""
"""""
"""""
"""""
"""""
Information
question
warning
apple
arrowr
arrowrd
DDDDDD@
DDDDDDDD@
DDDDD
DDDD@
DDDDD
DDDD@
DDDDDD
DDDDD
DDDDDD
DDDDD
DDDDDD
DDDDD
DDDDDD
DDDDD@
DDDDDD
DDDDD@
DDDDDD
DDDDD@
DDDDDD
DDDDD@
DDDDDD
DDDDD@
DDDDDD
DDDDD@
DDDDDD
DDDDD@
DDDDO
DDDDD@
DDDDO
DDDDD
DDDDDDDDDDDDDD
DDDDDDDDDDDDDD
DDDDD
DDDDD@
DDDDO
DDDD@
""""/
""""
""""/
""""
""""""/
""""""
""""""""""""""
"""""/
"""""
"""""/
"""""
"""""/
"""""
""""""
"""""
""""""
"""""
""""""/
""""
""""""/
""""
"""""""
""""
"""""""
""""
""""""
wwwwwwwp
wwwwwwwp
wwwpff
wwwpff`p
wwwpff`p
wwpff
wwpff`
wwpff`
PXFrontEnd
frontEnd
Source Book
ScriptWalker
propValue
GetScriptWalkIni
enterPage
Cancel
3default
center
propValue
different destination
Out File
ASYM_Ellipsize
trueValue
propValue
enterField
trueValue
propValue
trueValue
leaveField
Destination Book
ScriptWalker
propValue
GetScriptWalkIni
enterPage
Cancel
3default
center
propValue
In File
ASYM_Ellipsize
trueValue
propValue
enterField
trueValue
propValue
trueValue
leaveField
author
refBtn
keyDown
Cancel
cancelBtn
isWin95
defBtn
skrefFocus
enterPage
refBtn
button
skrefFocus
pushbutton
cancelBtn
defBtn
rkrefFocus
author
refBtn
keyDown
Cancel
cancelBtn
isWin95
defBtn
skrefFocus
enterPage
refBtn
button
skrefFocus
pushbutton
cancelBtn
defBtn
rkrefFocus
author
refBtn
keyDown
Cancel
cancelBtn
isWin95
defBtn
skrefFocus
enterPage
refBtn
button
skrefFocus
pushbutton
cancelBtn
defBtn
rkrefFocus
Source Dir
ASYM_CurrentDirectory
ScriptWalker
propValue
GetScriptWalkIni
enterPage
DestinationBookPath
center
propValue
destPathFld
trueValue
ASYM_Ellipsize
trueValue
propValue
enterField
trueValue
propValue
trueValue
leaveField
(*.*),*.*
oldDir
defaultPath
Book to walk
prompt
System books
Special
fieldRef
book extension
tb40DLG.DLL
Source Dir
In File
HshortFileName
newFileName
propValue
ASYM_PathOfFile
filter
defaultFile
ASYM_CurrentDirectory
ASYM_GetString
(*.tbk),*.tbk
cASYM_SetCurrentDirectory
(*.sbk),*.sbk
ScriptWalker
OpenFileDlg
All files
OpenFileDlg
propValue
Books
GetScriptWalkIni
buttonClick
(*.*),*.*
oldDir
defaultPath
(*.tbk),*.tbk
prompt
SaveAsDlg
System books
Special
fieldRef
book extension
tb40DLG.DLL
ASYM_PathOfFile
In File
HshortFileName
newFileName
propValue
Save Dir
filter
defaultFile
ASYM_CurrentDirectory
ASYM_GetString
cASYM_SetCurrentDirectory
(*.sbk),*.sbk
ScriptWalker
Out File
All files
propValue
SaveAsDlg
Books
fixIt
GetScriptWalkIni
different destination
Save Book As
7wASYM_Container
buttonClick
reset
enterPage
reset
leavePage
defBounds
defbounds
reset
.', "
.', "
theBar
reset
defBounds
defbounds
Destination Book Extension
ScriptWalker
propValue
GetScriptWalkIni
enterPage
Destination Book Extension
propValue
ScriptWalker
SetScriptWalkIni
trueValue
MoldText
enterField
different extension
trueValue
propValue
trueValue
propValue
Different extension
propValue
fixUp
propValue
trueValue
leaveField
statusbar
enterpage
leavePage
cancel
FALSE
3default
propValue
in File
out File
Different Destination
Walk Scripts Of A Book
Generic
ASYM_GetString
WalkScripts
replaceStrings
FileExists
The source book cannot be found.
fixVersion
^DoWalkScripts
isValidBook
In File
outFn
propValue
defReplaceStrings
ASYM_GetString
devReplaceStrings
This is not a valid ToolBook file.
krrecordDefaults
Out File
Change TB Version strings
Different Destination
Change Generic Version strings
closeThisWindow
tb30 to tb40
replaceStrings
Source Book
ASYM_PathOfFile
Source Dir
Destination Book
Destination Dir
DefReplaceStrings
sysfiles tb30 to tb40
ScriptWalker
SetScriptWalkIni
r<recordReplaceStringsInfo
recordDefaults
statusbar
enterpage
leavePage
.'+ +F
.'+ +F
s_outPath
cancel
yesAllStrDB
ASYM_CreateDirectory
s_overWriteFlag
replaceStrings
s_WalkedN
&Cancel
FALSE
noStr
FileExists
propValue
current file
GetFileSize
defReplaceStrings
SkipStr
^DoWalkScripts
Yes to &All
progress indicator
statusBar
yesAllStr
Change Generic Version strings
yesStr
s_ToWalkN
Not enough disk space to finish.
File %1 exists. Overwrite?
fixVersion
outPath
pathOfFile
progress
outFn
ASYM_GetString
s_BooksToWalk
%1 of %2
Unable to create destination directory for %1.
s_inPath
Change TB Version strings
Skip file and Continue
GetFreeDiskSpace
Yes to All
s_FileList
Generic
ASYM_GetString
Batch Walk Scripts
batchWalkScripts
w, #>
.'+ +F
.'+ +F
1, #>
.'+ +F
.'+ +F
s_outPath
The source directory does not exist.
s_WalkedN
s_overWriteFlag
replaceStrings
reset
FALSE
ASYM_IsDirectory
cancel stop
recursive
outExt
propValue
IsValidBook
defReplaceStrings
Sorting...
krrecordDefaults
statusBar
DbuildFileList
SourceBookPath
Different Destination
Change Generic Version strings
inPath
yesStr
s_ToWalkN
DestinationBookPath
s_FileList
fixVersion
The destination directory does not exist.
outPath
Source Book Extension
Include subdirectories
OK to overwrite the existing files?
Different Extension
inExt
Scanning files for valid books... %1
outFn
filter
wsortTextLines
ASYM_GetString
s_BooksToWalk
No files matching the pattern "%1".
Destination Book Extension
s_inPath
Change TB Version strings
progress
closeThisWindow
Source Ext
replaceStrings
Destination Ext
Source Dir
Include Subdirectories
Destination Dir
tb30 to tb40
sysfiles tb30 to tb40
ScriptWalker
SetScriptWalkIni
r<recordReplaceStringsInfo
recordDefaults
,&H.&
,&H.&
s_FileList
false
GetFileList
Scanning for files: %1.
DbuildFileList
stats
GetDirectoryOnlyList
ASYM_GetString
statusBar
GetFileAttributes
buildFileList
reset
FALSE
GetIniVar
SetIniVar
sendkeys
mtb40cbt.dll
ellipsizeFileName
sysWindowHandle
This application will not run in the runtime version of ToolBook.
ToolBook
tb40dos.dll
tb40win.dll
GetFileList
GetFileAttributes
GetFreeDiskSpace
GetFileSize
RemoveFile
CopyFile
FileExists
GetDirectoryOnlyList
GetFileOnlyList
tb40dlg.dll
itemOffset
SortTextLines
enterApplication
enterPage
mtb40.ini
inifile
.IniFile
SetIniVar
SetScriptWalkIni
.IniFile
GetIniVar
GetScriptWalkIni
recordReplaceStringsInfo
statusBar
showStatus
.'+ +F
.'+ +F
.'+ +F
.'+ +F
.'+ +F
.'+ +F
cancel
s_fixVersionNumbersInScripts
tb40mmm
CopyFile error code: %1
sysWindowHandle
tb40dos
statusBar
false
tb40win
ToolBook
tb40dlg
mtb30
Error creating destination book.
instances of ToolBook before walking scripts.
ASYM_GetString
mtb40
Done.
ctb30
s_StringsToReplace
tb40anm
!nwalkAllObjects
bkname
tb30dos
s_BooksToWalk
DestBookCopyError
Sorry, this book cannot work on itself.
tb30win
first.
s_replaceCount
mtb30anm
Sorry, you must close all other
mtb30mmm
tb30dlg
Sorry, you must close the book
iCopyFile
ctb40
DoWalkScripts
isValidBook
w, #>
w, #>
w, #>
.', "
,&H.&
,&H.&
,&H.&
w, #?
,&H.&
,&H.&
,&H.&
cancel
Cancel
sysSuspendMessages=true;go page 1 of book
RemoveFile
The book file may be corrupted, or there is a conflict with a file handle.
walkObjects
save as
save as exe
false
MTB40.EXE
, TRUE
$$$$$$$.tmp
ToolBook
Resaving
bookRef
HshortFileName
and try again.
tempFn
Close and restart Windows,
Apparent book version is:
send exit to system
pathOfFile
UpdatingExeX
cancel
false
bookRef
backgrounds
backIndex
curPage
skipstr
bkName
backID
tempFn
ASYM_GetString
skipstr
minimized
,TRUE
Updating .EXE header for %1
Skip Book And Continue
statusBar
OpenErrSuggestion
walkAllObjects
shortFileName
.'+ +F
.'+ +F
cancel
showStatus
s_BooksToWalk
Background
s_replaceCount
_twiddleCursor
curObjType
checkScript
walkObjects
of book
obname
obRef
s_scr
FindInScript
s_scr
ReplaceInScript
.'+ +F
s_replaceCount
s_fixVersionNumbersInScripts
quitStr
^{keyY}{keyEnter}
s_scr
Cancel
cancel
sharedScript
noStr
Cssendkeys
Script still contains error
There is still an error in the script of %1. Edit again?
pwd.txt
s_StringsToReplace
ASYM_GetString
yesStr
Try again
checkScript
.', "
s_cursn
twiddleCursor
ASYM_GetString
ASYM_GetString
Cffffff
false
isWin95
Depending on the complexity, size and number of books,
HelpWalkBatch
false
try to isolate the offending book and process it separately.
could not fix. For each script containing an error,
HelpWalkOne
Sorry, help not available on this topic.
This utility will walk and attempt to recompile the scripts
If such an error occurs, try smaller batches or
the scripts for optimum performance, and find every
of a single book and convert it to version 4.0.
of a batch of books and convert them to version 4.0.
HelpGen
the Check Syntax command to find and fix the error.
ASYM_GetString
Version 4.0 of the OpenScript compilers catches more
created with a previous ToolBook version, recompile
error is encountered in a script, the process will stop
script that contains a syntax error which the converter
it will open the script editor and allow you to use
errors at compile time than older versions. If such an
and the script editor will pop up so that you can fix the error.
Nohelp
some fatal errors may occur during batch processing.
This application will open or convert one or more books
asym_winHelp
w, #>
GetCurrentDrive
GetCurrentDirectory
7>7g
GetCurrentDrive
tb40DOS.dll
vGetCurrentDirectory
ASYM_CurrentDirectory
GetCurrentDrive
SetCurrentDirectory
result
tb40DOS.dll
SetCurrentDrive
, T,.7>-#
GetCurrentDrive
, Ulp
SetCurrentDirectory
SetCurrentDrive
ASYM_SetCurrentDirectory
newPath
oldPath
ChooseDirectoryDlg
ASYM_CurrentDirectory
cASYM_SetCurrentDirectory
tb40dlg.dll
.ChooseDirectoryDlg
ASYM_AskForPath
1, #>
1, #>
dotss
ASYM_Ellipsize
right
center
ellipsizeFileName
ASYM_Ellipsize
GetFileAttributes
tb40dos.dll
GetFileAttributes
ASYM_IsDirectory
1, "j
ASYM_IsDirectory
CreateDirectory
tb40dos.dll
CreateDirectory
ASYM_CreateDirectory
pathOfFile
notifyBefore
GetScriptWalkIni("ScriptWalker","Source Book")
opropValue =
otrueValue =
cnt =
= ASYM_Ellipsize(
x <>
B"different destination")
"Out File" <>
enabled
B"OK"
default
B"OK"
B"Cancel"
<> "\"
"..."
notifyBefore
GetScriptWalkIni("ScriptWalker","Destination Book")
opropValue =
otrueValue =
cnt =
= ASYM_Ellipsize(
x <>
"In File" <>
enabled
B"OK"
default
B"OK"
B"Cancel"
<> "\"
"..."
notifybefore
notifyBefore
x = 13
orefBtn
buttonClick
ocancelBtn =
B"Cancel"
odefBtn =
B"OK"
orefFocus
isWin95()
u= "pushbutton"
xenabled
OK = (
targetWindow =
u = sysPageUnitsPerPixel
b =
b - x,
b - y,\
b + x,
b + y
notifybefore
notifyBefore
x = 13
orefBtn
buttonClick
ocancelBtn =
B"Cancel"
odefBtn =
B"OK"
orefFocus
isWin95()
u= "pushbutton"
xenabled
OK = (
targetWindow =
u = sysPageUnitsPerPixel
b =
b - x,
b - y,\
b + x,
b + y
notifybefore
notifyBefore
x = 13
orefBtn
buttonClick
ocancelBtn =
B"Cancel"
odefBtn =
B"OK"
orefFocus
isWin95()
u= "pushbutton"
xenabled
OK = (
targetWindow =
u = sysPageUnitsPerPixel
b =
b - x,
b - y,\
b + x,
b + y
notifyBefore
GetScriptWalkIni("ScriptWalker","Source Dir")
ASYM_CurrentDirectory()
opropValue =
otrueValue =
cnt =
= ASYM_Ellipsize(
destPathFld =
"DestinationBookPath"
"..."
buttonClick
oldDir = ASYM_CurrentDirectory()
fieldRef =
"In File"
propValue
defaultPath = GetScriptWalkIni("ScriptWalker","Source
>ASYM_PathOfFile(
defaultFile = shortFileName(
) > 3
linkDLL "tb40DLG.
STRING OpenFileDlg(
,INT)
prompt = ASYM_GetString("Book
walk","")
filter =
'All files") && "(*.*),*.*"
GSystem books") && "(*.sbk),*.
tbk),*.
8extension")
"*." &
Special","") && "(*." &
& ")"\
newFileName =
ASYM_SetCurrentDirectory(
buttonClick
oldDir = ASYM_CurrentDirectory()
fieldRef =
"Out File"
propValue
defaultPath = GetScriptWalkIni("ScriptWalker","Save
<ASYM_PathOfFile(
defaultFile = shortFileName(
ASYM_Container(
p =
~(".",
p > 0
= ".txt"
) > 3
linkDLL "tb40DLG.
STRING SaveAsDlg(
,INT)
filter = ASYM_GetString("All files") && "(*.*),*.*"
+System books") && "(*.sbk),*.
VBooks") && "(*.tbk),*.
8extension")
"*." &
Special","") && "(*." &
& ")"\
prompt =
As","")
newFileName =
fixIt
B"different destination"
ASYM_SetCurrentDirectory(
notifyBefore
reset
n =
n = 0
sysPageUnitsPerPixel
nx =
ny =
Hny -15
defbounds
= x1,y1,x2,y2
= x1,y1,x1,y2
odefBounds =
theBar =
x1 =
x2 =
x1 +
* (x2 - x1)
bnds =
notifyBefore
ext = GetScriptWalkIni("ScriptWalker","Destination Book Extension")
J"tbk"
opropValue =
SetScriptWalkIni("
ooldText =
otrueValue
B"different extension"
p =
~(".",
p > 0
fixUp
B"Different
statusbar
readerStatusBar
B"Stop"
outF = propValue
File" <>
dif =
B"Different Destination"
inF =
enabled
B"OK"
default
B"OK"
FALSE
B"OK"
B"OK"
WalkScripts
v =
"Generic"
defaultPage
v = ASYM_GetString("
K Of A Book")
%modal
4s_candidateList, s_bookToWalkList, s_walkedBooks
oOK =
closeThisWindow
inFn =
outFn =
"Out
FileExists(
]) <> 1
The source
8cannot be found.")
xisValidBook(
xa valid ToolBook file.")
fixVersion =
B"Change TB
strings"
defReplaceStrings =
replaceStrings =
recordDefaults
6, devReplaceStrings
DoWalkScripts(
SetScriptWalkIni("ScriptWalker","Source
%Dir",ASYM_PathOfFile(
tb30
tb40",
sysfiles
DefReplaceStrings)
recordReplaceStringsInfo()
statusbar
readerStatusBar
4s_inPath, s_outPath,\
s_BooksToWalk, s_WalkedN, s_ToWalkN, s_overWriteFlag
s_booksToWalk <>
outFn
fixVersion = propValue
B"Change TB
strings"
defReplaceStrings =
.Generic
replaceStrings =
"progress indicator"
"current file" = \
expandString(ASYM_GetString("%1
%2"),\
) & CRLF &
B"stop"
FlushMessageQueue()
= pathOfFile(
d =
d <>
GetFreeDiskSpace(d) < GetFileSize(
Not enough disk
finish.")
xASYM_CreateDirectory(
SkipStr =
Continue")
"Unable
create destination directory
%1."),
f"&" &
&Cancel")
s_overwriteFlag \
FileExists(
) = 1
yesStr =
Yes")
yesAllStr =
yesAllStrDB =
noStr =
%1 exists. Overwrite?"),
"&" & YesStr
"&" &
= FALSE,TRUE
DoWalkScripts(
statusBar
batchWalkScripts
4s_FileList
v =
defaultPage
Batch
%modal
oOK =
"SourceBookPath"
B"Different Destination"
"DestinationBookPath"
<> "\"
<> "\"
inExt =
Extension"
outExt =
--prompt,
the existing files?")\
f"&" &
No")
"&" &
xASYM_IsDirectory(
ry does
.source
filter = "*." &
recursive =
B"Include subdirectories"
buildFileList
y, "*." &
Sorting...")
= sortTextLines(
"Scanning
valid
m ...
ObjectFromPoint(
xIsValidBook(
No
matching
""%1""."),
recordDefaults
d =
fCnt =
s_inpath =
Fn =
= Fn
p =
~(".",
p > 0
"." &
reset
closeThisWindow
inFnPath, outFnPath,
, includeDirs
SetScriptWalkIni("ScriptWalker","
=",OutFnPath)
Subdirectories",\
Ext",
OutExt)
tb30
tb40",
sysfiles
DefReplaceStrings)
recordReplaceStringsInfo()
root,
, recurse
GetDirectoryOnlyList(
& "*.*", "")
textlineCount(
d =
d =
GetFileAttributes(
& d)
d <> "\"
GetFileList(
n =
stats =
: %1.")
d =
d =
Copyright
1994, 1995
Asymetrix Corporation
gives you permission
e, revise,
reuse the
individual
scripts
your own
applications.
You may
J entire
substantial part
redistribution
b product
without inclusion
proper credits
%specified below.
retains
copyright on
original elements
. Include the notice "Portions
are
contain
copied
enterApplication
sysRuntime = TRUE
"This
will
runtime version
ToolBook."
activeWindowHandle =
"ctb40r.sbk"
X"tb40dos.dll"
STRING GetFileList(
Attributes(
LONG GetFreeDiskSpace(
ileSize(
INT RemoveFile(
CopyFile(
&FileExists(
DirectoryOnlyList(
linkDLL "tb40win.
IniVar(
SetIniVar(
sendkeys(
X"tb40dlg.
itemOffset(
SortTextLines(
mtb40cbt.
ellipsizeFileName(
, WORD)
inifile
SetScriptWalkIni sec,
, val
, IniFile())
GetScriptWalkIni
GetIniVar(
recordReplaceStringsInfo
showStatus obj
statusBar =
DoWalkScripts inFn, outFn, fixVersion,\
replaceStrings, defReplaceStrings
4s_StringsToReplace[][]
4s_scr, s_fixVersionNumbersInScripts, s_replaceCount
4s_BooksToWalk
"Sorry,
must close
other"\
&& "instances
4walking
reset
[1][1] = "tb30dos"
1][2] = "
2][1] = "tb30win"
2][2] = "
3][1] = "tb30dlg"
3][2] = "
4][1] = "mtb30"
4][2] = "
5][1] = "ctb30"
5][2] = "
6][1] = "mtb30anm"
6][2] = "tb40anm"
6][1] = "mtb30mmm"
6][2] = "tb40mmm"
8" &&
&& "
& CRLF &
8cannot work on itself."
"down"
objectFromPoint(
"Stop"
expandString(ASYM_GetString("DestBookCopyError",\
creating destination
8." &
error code: %1"),
bkname =
s_replacecount = 0
walkAllObjects (bkName)
"Done."
isValidBook fn
(fn) <>
ZbackID,backgrounds[][]
\backIndex
ZcurPage
bookRef =
skipstr =
Skip
And Continue")
Apparent
OpenErrSuggestion",\
"The
be corrupted,
there
a conflict
"Close
restart Windows,"\
f"&" &
"&" &
Cancel")
be walked
walkObjects
" through
--
--
we have previously
--
dimensions(
j][1]
--
-- so we don't visit
) + 1
][1]
,backindex
".EXE"
UpdatingExeX",\
%1"), shortFileName(
cmd = "
" &&
& sysToolBookDirectory & "MTB40.
&& "minimized"
FlushMessageQueue()
xsysSuspendMessages=
8" &&
tempFn = pathOfFile(
.tmp"
Resaving") &&
%" &&
& ",
%exe" &&
ccnt =
U(fn)
Vi+1
"walks"
objectToWalk.
-- On entry
handler,
either a
only used
-- a
Hreference,
Zstack tlist,objList
recFieldCount
ZcurObj
s_obCount
twiddleCursor()
xisType(
flushMessageQueue()
) > 0
curObjType
windows
resourceList("sharedScript",
getObjectList(
) > 0
checkScript
obRef ob
8",ob)-1
U(ob)
obname
" (" &
& ")"
FindInScript what
ReplaceInScript withWhat, p, howlong
(p +
- 1)
curObject
n =
n > 0
p =
i][1],
cp > 0
i][2]) - 1\
i][2]
i][1],
p =
cp > 0
p =
fn =
y & "pwd.txt"
-- There
that
x"Try
}{keyEnter}",0)
yesStr =
Yes")
noStr =
quitStr =
still
%1. Edit
?"),\
f"&" &
"&" &
"&" &
cNoStr
4s_cursn
= 29
a, b
isWin95
sysOperatingSystem
istype("real",
> 3.8
asym_winHelp n
Nohelp","
xavailable on
n = 100
HelpGen",\
convert one
more books"\
&& "created
, recompile"\
optimum performance,
find every"\
ca syntax
which
converter"\
&& "could
xfix.
For each
containing
editor
allow
use"\
Check Syntax
saved
%.EXE
3.0x
Multimedia
3.0x"\
&& "should be opened
conversion
&& "a
resaved
manually.")
n = 101
HelpWalkOne",\
utility
attempt
a single
4.0." &
4.0
OpenScript compilers catches
&& "errors
Ithan older versions. If such
encountered
process
stop"\
up so
can fix
n =102
HelpWalkBatch",\
a batch
them
4.0." &
4.0
. If
up so
& "Depending on
complexity,
&& "some fatal
occur during
processing."\
&& "If
occurs,
smaller batches
isolate
offending
separately.")
ASYM_CurrentDirectory
--**
HCO 940722
X"tb40DOS.
CurrentDrive()
drv = GetCurrentDrive()
dir = "\" & GetCurrentDirectory(
(<> "\"
\& ":" &
ASYM_SetCurrentDirectory pathStr
result = -1
B <> ":"
SetCurrentDrive(
d =
p =
~(":",
p > 1
nd =
d (nd)
ASYM_AskForPath startPath, dbCaption
ChooseDirectoryDlg(
oldPath =
newPath =
.<> "\"
trim s
U(s) > 1
s <=
U(s) > 1
s <=
ASYM_Ellipsize s, len, side
= 0;
s =
cCnt =
dotss = "..."
dotCnt = 3
p1 =
~("\", s)
p1 > 0
< 18
s =
+ 1)
p =
~("\", s)
p > 0
dotsL = (len -
U(s))+1
E) --
s =
U(s)
U(s))+1
s =
+ 4)
p =
3) / 2 + 0.1)
s1 =
U(s1) + 1 + p > len
s = s1 &
s =
ASYM_IsDirectory dirspec
GetFileAttributes(
("D"
ASYM_CreateDirectory dirSpec
p =
~("\",
cp > 1
dir1 =
FALSE
p1 = p
p =
~("\",
Vp+1
p > 1
p = p1 + p
U(Fn)
chars p to p + charco
cordLocked
Relation
<BookPath>
:HDMEDIAPATH
taDir
urier New
Sans Serif
Button id 43 of Page id 59
Claude Ostyn
Arial
user|2
_ASYM_StringArray
Asymetrix Corporation
9/7/94 3:24:58 PM
9/6/94 2:19:00 PM
info_LastSavedBy
info_LastSaved
user2
user0
FALSE
user2
user|0,userID
MS Sans Serif
Sans Serif
12/19/94 2:32:14 PM
Button id 45 of Page id 59
Button id 43 of Page id 59
Button id 48 of Page id 66
Button id 48 of Page id 66
Button id 48 of Page id 66
Button id 48 of Page id 66
Button id 44 of Page id 59
Button id 50 of Page id 66
Button id 44 of Page id 59
9/27/95 5:22:23 PM
Claude Ostyn
Arial
11/17/95 7:16:48 PM
SYM_StringArray
Claude Ostyn
12/13/95 6:10:28 PM
/95 5:39:09 PM
12/13/95 6:23:57 PM
12/13/95 6:10:23 PM
Arial
Page id 66
MS Sans Serif
6:20:27 PM
id 66
Claude Ostyn
11/17/95 1:01:16 PM
stanceRunning
1/5/95 1:10:48 PM
tb30dos.dll
GetFileList
GetFreeDiskSpace
GetFileSize
RemoveFile
ctb30r.sbk
mtb30cbt.dll
DecryptFile
enterApplication
author
reader
enterPage
enterApplication
"ctb30r.sbk"
X"mtb30cbt.dll"
INT DecryptFile(STRING,
X"tb30dos.
GetFileList(
LONG GetFreeDiskSpace(
ileSize(
oRemoveFile(
`= thickFrame
= thinFrame
%1 of %2
%1 of %2
&Cancel
&Cancel
All files
All files
Apparent book version is:
Apparent book version is:
Batch Walk Scripts
Batch Walk Scripts
Book to walk
Book to walk
Books
Books
Cancel
Cancel
DestBookCopyError
Error creating destination book.
CopyFile error code: %1
Destination Directory
Destination Directory
File %1 exists. Overwrite?
File %1 exists. Overwrite?
No files matching the pattern
No files matching the pattern "
Not enough disk space to finish.
Not enough disk space to finish.
OK to overwrite the existing files?
OK to overwrite the existing files?
OpenErrSuggestion
The book file may be corrupted, or there is a problem with a file handle.
Close and restart Script Walker, and try again.
Resaving
Resaving
Save Book As
Save Book As
Scanning files for valid books... %1
Scanning files for valid books... %1
Scanning for files: %1.
Scanning for files: %1.
Script still contains error
There is still an error in the script of %1. Edit again?
Review Course Activity
%asym_cms_datadir()%cbkfive.tbk
6 urseID
dulePassword
Page "Tool Bar"
login
Request
Paused Course
Page "Paused Course"
page "Edit Course"
tion"
Page "Review Course Activity"
Page "Cover"
ge "Login"
Level 2
Page id 13
tch Decrypt
Page id 19
Level 3
crypt A Log
urseInfo
Generic
Edit Student Information
Page "Edit Student Information"
signments
Page "accountInformation"
Paused Courses
[~password
closeWindow
closeWindow
t Password
newPassword
allowNullPassword
Add Book to Course
j ror
142,244
defPos
tableName
6 urseOwner
page "Edit Book"
LastName10, FirstName10 P 11
DnGguRf
accessRights
Administrator Access
1
Test course A 11
courseName
Batch Walk Scripts
userName
ge "Courses"
tch Decrypt
page "Purge Data"
newUser
DnGguRf
Purge Data
bookName
default
enterWindow
leveWindow
leveWindow
enterWindow
o= default
leveWindow
283,309
page "login"
Edit Course Definition
94.12.05
Page id 66 of Book "G:\MTB40\SCRWLKB5.TBK"
CBT Edition 4.0 Script Walker
267,105
defPos
openWindow
defPos
moved
openWindow
odefPos =
moved
54,67
defPos
openWindow
.', "
defPos
moved
openWindow
odefPos =
moved
ocurrentPage
Cover
defPos
enterpage
%asym_WinHelp
keyDown
ls = lockScreen
= defPos
asym_WinHelp()
defaultButton
Button id 22 of Page id 30
defBtn
needFix
Button id 10 of Page id 30
refBtn
Button id 10 of Page id 30
cancelBtn
Button id 28 of Page id 30
refFocus
Walk Scripts One
defPos
buttonClick
buttonClick
WalkScripts()
One"
defPos
&Walk Scripts of Book...
Batch Walk
defPos
Batch Walk Scripts
buttonClick
buttonClick
batchWalkScripts()
"Batch
defPos
&Batch Walk Scripts...
%ASYM_WinHelp
buttonClick
buttonClick
ASYM_WinHelp(100)
&Help
Cancel
buttonClick
buttonClick
&Quit
fixup
reader
fixup
fixup
notifyBefore
fixup
richtext
o =
This utility walks and recompiles all the scripts in applications to be upgraded from MTB 3.0 to MTB 4.0.
This utility walks and recompiles all the scripts in applications to be upgraded from MTB 3.0 to MTB 4.0.
Version 4.0c
author
keyDown
enterPage
reader
Button id 10 of Page id 30
94081715073113612108902
ASYM_TpID
Walk Scripts One
ASYM_BeenHere
Caption
propValue
Walk and recompile the scripts of a book
3DGroupBox
tbk_wid_type
propValue
Shadow
Highlight
Caption
propValue
&Source Book File Name:
widget_defaultRect
propValue
to "tb40" wherever found in scripts, as in "tb30dos.dll"
(case insensitive)
system books or files, such as "tb30dos.dll", to the equivalent MTB4.0 references
3DGroupBox
tbk_wid_type
Shadow
Highlight
Caption
Options
buttonClick
author
buttonClick
notifyBefore
escape
propValue
default
STOP!
In File
dbTable
G:\MTB40\SCRWLK4.TBK
trueValue
G:\MTB40\SCRWLK4.TBKTXT.TBKR.TBK
findFile
exclude
propValue
Different Destination
propValue
In File
Out File
propValue
enterPage
propValue
In File
Out File
propValue
fixit
propValue
buttonClick
trueValue
Out File
propValue
propValue
propValue
notifyAfter
opropValue =
"In File" <> \
"Out
fixit
buttonClick
fld =
trueValue
propValue
Different &Destination Book File Name:
Out File
dbTable
G:\MTB40\SCRWLK2.TBK
trueValue
G:\MTB40\SCRWLK2.TBK+
findOutFile
exclude
propValue
Change TB Version strings
tb30 to tb40
Scriptwalker
SetIniVar
GetIniVar
tb40win.dll
propValue
GetScriptWalkIni
enterPage
s_fixVersionNumbersInScripts
false
truefalse
propValue
propValue
propValue
buttonClick
notifyBefore
X"tb40win.dll"
INT SetIniVar(STRING,
GetIniVar(
opropValue = GetScriptWalkIni("Scriptwalker","tb30
4s_fixVersionNumbersInScripts
"truefalse"
buttonClick
&Change every occurence of "tb30"
Change Generic Version strings
SetIniVar
GetIniVar
tb40win.dll
Scrwalk
sysfiles tb30 to tb40
propValue
GetScriptWalkIni
enterPage
s_fixVersionNumbersInScripts
false
truefalse
propValue
propValue
propValue
buttonClick
notifyBefore
X"tb40win.dll"
INT SetIniVar(STRING,
GetIniVar(
opropValue = GetScriptWalkIni("Scrwalk","sysfiles tb30
4s_fixVersionNumbersInScripts
"truefalse"
buttonClick
&Change script references to MTB3.0
buttonClick
buttonClick
default
propValue
&Walk Scripts...
Cancel
closeThisWindow
buttonClick
buttonClick
closeThisWindow
escape
propValue
FALSE
default
&Close
%ASYM_WinHelp
buttonClick
buttonClick
ASYM_WinHelp(101)
propValue
&Help
enterPage
author
enterPage
94090815470428412113648
ASYM_TpID
NUI Dialog Boarder
topBorder
bottomBorder
bkgndSize
ssm = sysSuspendMessages
"0,0"
bkgndSize =
topBorder =
bottomBorder =
sysPageUnitsPerPixel,(
!el),
,el,(4 *
;el),
Oel, (4 *
sel,(
el),(
el),(
el),(
el), (4 *
= ssm
3DDialogBorder
tbk_wid_name
3DDialogBorder
tbk_wid_type
Dialog frame
CTB_WID_Info
CTB_WID_Author
940817
CTB_WID_CreateDate
defaultButton
Button id 44 of Page id 59
defBtn
needFix
Button id 43 of Page id 59
refBtn
Button id 43 of Page id 59
cancelBtn
Button id 48 of Page id 59
refFocus
author
keyDown
enterPage
Button id 43 of Page id 59
Batch Walk Scripts
ASYM_BeenHere
Include Subdirectories
Include Subdirectories
ScriptWalker
GetScriptWalkIni
enterPage
notifyBefore
Z= (TRUE = \
GetScriptWalkIni("ScriptWalker","Include Subdirectories"))
&Include Subdirectories
&Source Books:
Caption
Walk scripts of all books in a directory.
3DGroupBox
tbk_wid_type
Shadow
Highlight
Caption
Directories
3DGroupBox
tbk_wid_type
Shadow
Highlight
Caption
Files
widget_defaultRect
to "tb40" wherever found in scripts, as in "tb30dos.dll"
(case insensitive)
system books or files, such as "tb30dos.dll", to the equivalent MTB4.0 references
3DGroupBox
tbk_wid_type
Shadow
Highlight
Caption
Options
buttonClick
author
buttonClick
notifyBefore
escape
propValue
default
STOP!
Caption
Walk scripts of all books in a directory.
Caption
Destination Book Names:
SourceBookPath
dbTable
G:\MTB40\LIBRARY\
trueValue
G:\MTB40\LIBRARY\ES\\BAR\\TE\ATE\C\SIC\
findFile
asym_GetString
oldDir
Source Directory
fieldRef
propValue
ASYM_CurrentDirectory
newPathFile
cASYM_SetCurrentDirectory
propValue
SourceBookPath
asym_AskForPath
buttonClick
buttonClick
oldDir = ASYM_CurrentDirectory()
fieldRef =
"SourceBookPath"
propValue
newPathFile = asym_AskForPath(
asym_GetString("
t"),\
ASYM_SetCurrentDirectory(
exclude
Different Destination
DestinationBookPath
propValue
propValue
SourceBookPath
enterPage
DestinationBookPath
propValue
propValue
SourceBookPath
fixup
propValue
buttonClick
DestinationBookPath
trueValue
propValue
propValue
propValue
notifyAfter
opropValue =
"SourceBookPath" \
"DestinationBookPath"
fixup
buttonClick
fld =
trueValue
propValue
Different &Destination Directory:
DestinationBookPath
Destination dir
ASYM_CurrentDirectory
ScriptWalker
propValue
GetScriptWalkIni
enterPage
center
ASYM_Ellipsize
trueValue
propValue
enterField
trueValue
propValue
trueValue
leaveField
notifyBefore
GetScriptWalkIni("ScriptWalker","Destination dir")
ASYM_CurrentDirectory()
opropValue =
otrueValue =
cnt =
= ASYM_Ellipsize(
"..."
dbTable
G:\MTB40\LIBRARY\
trueValue
outFile
oldPath
oldDir
DestinationBookPath
fixup
fieldRef
asym_GetString
Destination Directory
propValue
ASYM_CurrentDirectory
newPathFile
cASYM_SetCurrentDirectory
propValue
asym_AskForPath
different destination
buttonClick
buttonClick
oldDir = ASYM_CurrentDirectory()
fieldRef =
"DestinationBookPath"
oldPath = propValue
newPathFile = asym_AskForPath(
asym_GetString("
fixup
B"different destination"
ASYM_SetCurrentDirectory(
d!t!T8
exclude
Source Book Name E&xtension:
R"d"[
3dField
tbk_wid_type
3D field
CTB_WID_Info
CTB_WID_Author
970817
CTB_WID_CreateDate
!J#>(
Source Book Extension
Source Book Extension
ScriptWalker
GetScriptWalkIni
enterPage
propValue
Source Book Extension
SetScriptWalkIni
ScriptWalker
enterField
propValue
propValue
Sorry, wildcards are not allowed.
ASYM_GetString
leaveField
notifyBefore
ext = GetScriptWalkIni("ScriptWalker","Source Book Extension")
E"tbk"
SetScriptWalkIni("
opropValue)
p =
~(".",
p > 0
c"*"
ASYM_GetString("Sorry, wildcards are
xallowed.")
string
propType
Different Extension
Destination Book Extension
propValue
Source Book Extension
propValue
enterPage
Destination Book Extension
propValue
Source Book Extension
propValue
fixup
Destination Book Extension
propValue
buttonClick
trueValue
Destination Book Extension
propValue
propValue
propValue
notifyAfter
opropValue =
"Source Book Extension" \
"Destination
fixup
buttonClick
fld =
trueValue
propValue
Use Different &Extension for
^/p/[
3dField
tbk_wid_type
3D field
CTB_WID_Info
CTB_WID_Author
970817
CTB_WID_CreateDate
.V0v0
Destination Book Extension
string
propType
trueValue
oldText
Change TB Version strings
tb30 to tb40
Scriptwalker
SetIniVar
GetIniVar
tb40win.dll
propValue
GetScriptWalkIni
enterPage
s_fixVersionNumbersInScripts
false
truefalse
propValue
propValue
propValue
buttonClick
notifyBefore
X"tb40win.dll"
INT SetIniVar(STRING,
GetIniVar(
opropValue = GetScriptWalkIni("Scriptwalker","tb30
4s_fixVersionNumbersInScripts
"truefalse"
buttonClick
&Change every occurence of "tb30"
Change Generic Version strings
SetIniVar
GetIniVar
tb40win.dll
Scrwalk
sysfiles tb30 to tb40
propValue
GetScriptWalkIni
enterPage
s_fixVersionNumbersInScripts
false
truefalse
propValue
propValue
propValue
buttonClick
notifyBefore
X"tb40win.dll"
INT SetIniVar(STRING,
GetIniVar(
opropValue = GetScriptWalkIni("Scrwalk","sysfiles tb30
4s_fixVersionNumbersInScripts
"truefalse"
buttonClick
&Change script references to MTB3.0
buttonClick
buttonClick
default
Cancel
closeThisWindow
buttonClick
buttonClick
closeThisWindow
escape
&Cancel
%ASYM_WinHelp
buttonClick
buttonClick
ASYM_WinHelp(102)
&Help
Progress
author
enterPage
leavePage
notifyBefore
Current file
enterPage
reset
notifyBefore
notifybefore reset
>(A@A
Progress indicator
210,4305,5850,4530
defBounds
track
240,4335,5820,4515
defbounds
enterPage
author
leavePage
reset
enterPage
940919154705811756825
ASYM_TpID
NUI Dialog Boarder
topBorder
bottomBorder
bkgndSize
ssm = sysSuspendMessages
"0,0"
bkgndSize =
topBorder =
bottomBorder =
sysPageUnitsPerPixel,(
!el),
,el,(4 *
;el),
Oel, (4 *
sel,(
el),(
el),(
el),(
el), (4 *
= ssm
3DDialogBorder
tbk_wid_name
3DDialogBorder
tbk_wid_type
Dialog frame
CTB_WID_Info
CTB_WID_Author
940817
CTB_WID_CreateDate
defaultButton
Button id 48 of Page id 66
defBtn
needFix
Button id 244 of Page id 66
refBtn
Button id 49 of Page id 66
cancelBtn
Button id 48 of Page id 66
refFocus
author
keyDown
enterPage
Button id 48 of Page id 66
Cover
Batch Walk Scripts
Walk Scripts One
.&+ h
, #?
cancel
tbkToolsDlg
Property browser
Edit Value
FchooseFontDlg
propEdit
Tsetprop
bold,italic
propVal
\updateBrowser
uProp
retcolor
CannotEditNDArray
tbk_bookRef
dummy2D =
retval
qrgbtohls
<Add new>
curType
tb30win.dll
propValue
script
"tbk_wid_currentTab
TabFolder
dlgString
edit1DArray
regular
stbk_propTypes
Edit Property
boolean
Ntbk_GetString
colortype
pageRef
HLStoRGB
rgbtohls
upropsdlg
Add system variable
stbk_curOb
Add UserProperty
uprop
setupstring
window cancelled
_edit1Darray
sysVarValue
dummy1D =
_edit2Darray
curOb
colorPaletteDlg
bookRef
isSysVar
custom
TsetProp
nextValue
multiLine
fstyle
1%"6h9"
1%"ViV#|
1%"js$
1'"6l
{%("<
.[(">Z#m
Q$Z#/
0+y$j
2[("A
1("t
1['"B
WFW17
WFW18
WFW19
WFW2
WFW20
WFW21
WFW22
WFW23
WFW24
WFW25
WFW26
WFW27
WFW28